Program Aufz;
Type Farbe = (Rot,Gruen,Lila,Braun,Blau);

Var Color : Farbe;

Begin
 For Color := Blau DownTO Rot DO
  Begin
   Writeln(Ord(Color));
   Case Color Of
    Rot   : Writeln('Rot');
    Gruen : Writeln('Gruen');
    Lila  : Writeln('Lila');
    Braun : Writeln('Braun');
    Blau  : Writeln('Blau');
   End
  End
End.
